perm filename ALMAIN.PAS[AL,HE]1 blob sn#663263 filedate 1982-09-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(*$R60 allocate more core for heap *)
C00006 ENDMK
CāŠ—;
(*$R60 allocate more core for heap *)

program almain;

procedure initAlloc; extern;				(* from ALLOC.PAS *)
procedure initEditor; extern;				(* from EDIT.PAS *)
procedure edit; extern;
procedure initParser; extern;				(* from PARSE.PAS *)
procedure initWorld; extern;				(* from INTERP.PAS *)
procedure consDef; extern;

begin
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initParser;		(* get the Parser ready *)
initWorld;		(* get the Interpreter ready too *)
initEditor;		(* ditto for the Editor *)

edit;
writeln(ttyoutput);
writeln(ttyoutput,'Bye');
end.